Here’s a direct link to Aaki’s homework 4 repository: https://github.com/ag2965/p8105_hw4_ag2965
data("instacart")
instacart =
instacart %>%
as_tibble(instacart)
instacart%>%
janitor::clean_names()%>%
plot_ly(
x = ~product_name, y = ~order_dow, type = "scatter", mode = "markers",
color = ~order_dow, alpha = 0.5)